home *** CD-ROM | disk | FTP | other *** search
/ The Games Machine 103 / XENIATGM103.iso / Shareware / GoLive 5.0 / MM9.Cab / F1405_project.asp.9B3B646D_CB56_4EAE_BAB7_3E7E8E41A649 < prev    next >
Text File  |  2000-08-17  |  5KB  |  98 lines
  1. <!-- #INCLUDE VIRTUAL="/golive/config/include/utils.runtime5.asp" -->
  2. <!-- #INCLUDE VIRTUAL="/golive/config/include/ado.runtime5.asp" -->
  3. <!-- #INCLUDE VIRTUAL="/golive/config/actions/ado.actions5.asp" -->
  4. <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
  5. <html>
  6.  
  7.     <head>
  8.         <meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
  9.         <meta name="generator" content="Adobe GoLive 5">
  10.         <title>Edit Feature</title>
  11.         <%'Dynamic Link
  12.     set Project_InformationRecordSet = CreateObject("ADODB.RecordSet")
  13.     Project_InformationRecordSet.Open "select * from projects", ConnectString("Magazine")
  14.     set Project_Information = WrapRecordSet(Project_InformationRecordSet, "ID")
  15.     Project_Information.Move GetRecordIndex() - 1
  16. %><%'Dynamic Link
  17.     set Status_ListRecordSet = CreateObject("ADODB.RecordSet")
  18.     Status_ListRecordSet.Open "select * from StatusOptions order by ListingOrder", ConnectString("Magazine")
  19.     set Status_List = WrapRecordSet(Status_ListRecordSet, "ProjectStatus")
  20. %><%'Dynamic Link
  21.     set Author_ListRecordSet = CreateObject("ADODB.RecordSet")
  22.     Author_ListRecordSet.Open "select * from Authors order by ProjectAuthor", ConnectString("Magazine")
  23.     set Author_List = WrapRecordSet(Author_ListRecordSet, "ProjectAuthor")
  24. %><meta name="site-config-URL" content="http://localhost/golive/config/">
  25.     </head>
  26.  
  27.     <body bgcolor="white">
  28.         <form method="post" action='/golive/config/actions/ado.actions5.asp?<%=URLArgs()%>'>
  29.         <table border="0" cellpadding="4" cellspacing="4">
  30.             <tr>
  31.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>ID</b></font></td>
  32.                 <td bgcolor="#ccccff"><%=Project_Information.Value("ID")%></td>
  33.             </tr>
  34.             <tr>
  35.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Project</b></font></td>
  36.                 <td bgcolor="#ccccff"><input type="text" name='ProjectName' value='<%=Project_Information.Value("ProjectName")%>' size="32"></td>
  37.             </tr>
  38.             <tr>
  39.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Status</b></font></td>
  40.                 <td bgcolor="#ccccff">
  41.                     <table border="0" cellpadding="2" cellspacing="2">
  42.                         <% Status_List.MoveFirst %>
  43.                         <% while not Status_List.EOF %>
  44.                         <tr>
  45.                             <td nowrap><input type="radio" value='<%=Status_List.Value("ProjectStatus")%>' name='ProjectStatus' <%=checked(Project_Information.Value("ProjectStatus") = Status_List.Value("ProjectStatus"))%>><%=Status_List.Value("ProjectStatus")%></td>
  46.                         </tr>
  47.                         <% Status_List.MoveNext %>
  48.                         <% wend %>
  49.                     </table>
  50.                 </td>
  51.             </tr>
  52.             <tr>
  53.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Assigned</b></font></td>
  54.                 <td bgcolor="#ccccff"><select name='ProjectAuthor' size="1">
  55.                             <% Author_List.MoveFirst %>
  56.                             <% while not Author_List.EOF %>
  57.                             <option value='<%=Author_List.Value("ProjectAuthor")%>' name="ProjectAuthor"     <%=selected(Project_Information.Value("ProjectAuthor") = Author_List.Value("ProjectAuthor"))%>><%=Author_List.Value("ProjectAuthor")%>
  58.                             <% Author_List.MoveNext %>
  59.                             <% wend %>
  60.                         </select></td>
  61.             </tr>
  62.             <tr>
  63.                 <td bgcolor="#666699"><font color="white" face="arial,helvetica,sans-serif"><b>Due Date</b></font></td>
  64.                 <td bgcolor="#ccccff"><input type="text" name='DueDate' size="32" value='<%=Project_Information.Value("DueDate")%>'></td>
  65.             </tr>
  66.         </table>
  67.         <p>
  68.         <input type="submit" value="Update" name="$SubmitChanges"  <%=SetupADOAction(Project_Information, false)%>>
  69.         <input type="submit" value="Delete" name="$DeleteRecord"  <%=SetupADOAction(Project_Information, false)%>>
  70.         <input type="submit" value="Duplicate" name="$DuplicateRecord"  <%=SetupADOAction(Project_Information, false)%>>
  71.         <input type="reset" value="Clear Form">
  72.         </p>
  73.         <p><font face="verdana" size="1"><b>
  74.             | <a <%=linkToFirstRecord(Project_Information)%>><< FIRST</a> 
  75.             | <a <%=linkToPreviousRecord(Project_Information)%>><- PREVIOUS</a> 
  76.             | <a <%=linkToNextRecord(Project_Information)%>>NEXT -></a> 
  77.             | <a <%=linkToLastRecord(Project_Information)%>>LAST >></a> 
  78.             | <%=Project_Information.AbsolutePosition%> of <%=Project_Information.RecordCount%></b></font></p>
  79.         <p>
  80.         </form>
  81.     </body>
  82.  
  83. </html>
  84. <% if 0 then %>
  85. <!-- Mock Content
  86.    Project_Information:ID {123}
  87.    Project_Information:ProjectName {}
  88.    Status_List:<TABLE> {<tr><td><input type="radio" value="radioValue" name="default">Baking Nicely</td></tr><tr><td><input type="radio" value="radioValue" name="default">Done to Perfection</td></tr>}
  89.    Project_Information:ProjectStatus {Ready to Roast}
  90.    Status_List:ProjectStatus {Ready to Roast}
  91.    Author_List:<SELECT> {<option value="BlueCow">BlueCow<option value="HolyCow">HolyCow}
  92.    Author_List:ProjectAuthor {MadCow}
  93.    Project_Information:DueDate {}
  94.    Project_Information:$recordIndex {3}
  95.    Project_Information:$recordCount {15}
  96. -->
  97. <% end if %>
  98.